home *** CD-ROM | disk | FTP | other *** search
/ Speccy ClassiX 1998 / Speccy ClassiX 98.iso / amiga_system / the_aminet / dev / amos / apme14.lzh / PatchAMOSPro.amos / PatchAMOSPro.amosSourceCode
AMOS Source Code  |  1995-09-27  |  992b  |  33 lines
  1. _START:
  2. ' Ask filename of AMOSPro
  3. F$=Fsel$("","","Please select your AMOSPro file")
  4. If F$="" Then End 
  5. If Right$(F$,7)<>"AMOSPro" Then _WRONGFILE : Goto _START
  6.  
  7. ' Load Amos Pro in bank 10 
  8. Open In 1,F$ : L=Lof(1) : Close 1
  9. Reserve As Work 10,L
  10. Bload F$,10
  11. ' Search for the string in the AMOSPro file where the
  12. ' Interpreter_Config is to be found... 
  13. POS=Hunt(Start(10) To Start(10)+Length(10),"s:AMOSPro_Interpreter_Config")
  14. ' sometimes the string is in upper case, so let's check for it as well 
  15. ' if it wasn't found the first time
  16. If POS=0
  17.    POS=Hunt(Start(10) To Start(10)+Length(10),"S:AMOSPro_Interpreter_Config")
  18. End If 
  19. If POS=0 Then Print "Not found. Wrong version of AMOSPro ?" : End 
  20. ' and change it
  21. Poke$ POS,"T:AMOSPro_Interpreter_Config"
  22. ' And then save it 
  23. Bsave F$,Start(10) To Start(10)+Length(10)
  24. 'written by: 
  25. ' Mark de Jong 
  26. '    and 
  27. ' Darryl Lewis 
  28. Procedure _WRONGFILE
  29. Cls 
  30. Print "This is not the AMOSPro file"
  31. Print "Please try again"
  32. Repeat : Until Mouse Key
  33. End Proc